(calcFunc-inv): Check for symbolic matrices.

diff --git a/lisp/calc/calc-misc.el b/lisp/calc/calc-misc.el
index e8c0ea4b6580259f2c15a5f06d536ac7bf0b745a..ba80f455b4f725f0fe3e6281c349f575d5b323d3 100644 (file)
--- a/lisp/calc/calc-misc.el
+++ b/lisp/calc/calc-misc.el
@@ -646,8 +646,11 @@ loaded and the keystroke automatically re-typed."
            (or (math-with-extra-prec 2 (math-matrix-inv-raw m))
                (math-reject-arg m "*Singular matrix"))
          (math-reject-arg m 'square-matrixp)))
-    (math-div 1 m)))
-
+    (if (and
+         (require 'calc-arith)
+         (math-known-matrixp m))
+        (math-pow m -1)
+      (math-div 1 m))))
 
 (defun math-do-working (msg arg)
   (or executing-kbd-macro